home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tppop18c.arc / UPPRCASE.ASM < prev    next >
Assembly Source File  |  1991-04-28  |  486b  |  30 lines
  1. .MODEL TPASCAL
  2. .CODE
  3. LOCALS @@
  4.  
  5. PUBLIC uppercase
  6.  
  7. UpperCase PROC FAR USES DS,line:DWORD
  8.  
  9.          cld
  10.          lds       si,line
  11.          mov       cl,[si]
  12.          xor       ch,ch
  13.          jcxz      @@3
  14. @@1:
  15.          inc       si
  16.          cmp       byte ptr [si],'a'
  17.          jb        @@2
  18.          cmp       byte ptr [si],'z'
  19.          ja        @@2
  20.          sub       byte ptr [si],20h
  21. @@2:
  22.          loop      @@1
  23. @@3:
  24.          ret
  25.  
  26. UpperCase ENDP
  27.  
  28. END
  29.  
  30.